home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / 1st_b110.zip / 20-REPLY.SCR < prev    next >
Text File  |  1993-01-28  |  1KB  |  56 lines
  1. '
  2. '        QSO script for 1stReader
  3. '        January 13th, 1993
  4. '
  5.  
  6. CAPTURE ON
  7. TIMEOUT 30
  8.  
  9. LOOKFOR "-Press Any Key-" "^M"
  10. LOOKFOR "Read Now(Y/N)?" "N"
  11. LOOKFOR "correct?" "Y^M"
  12. LOOKFOR "(S=Stop)-" "S"
  13. LOOKFOR "-More-" "S"
  14.  
  15. LOCKLINE 20 30
  16. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  17. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  18. COMMENT "@DATE@ @TIME@  Logging in to system"
  19.  
  20. WAITFOR "Name? " 50
  21. IF FOUND=0 EXIT
  22. TRANSMIT; "@USER@^M"
  23. WAITFOR "Password: " 30
  24. COMMENT "@DATE@ @TIME@  Transmitting password"
  25. TRANSMIT "@PASSWORD@^M"
  26. WAITFOR "Command: "
  27. COMMENT "@DATE@ @TIME@ Opening QSO"
  28. TRANSMIT "@QMAIL@"
  29. WAITFOR "Command? "
  30. TRANSMIT "U"
  31. UPLOAD @REPDIR@@BBSID@.REP
  32. WAITFOR "Processing reply file"
  33. WAITFOR "file complete|uploaded archive"
  34. IF FOUND=1 GOTO KILL
  35. IF FOUND=2 GOTO ERROR
  36. GOTO EXIT
  37.  
  38. :ERROR
  39. TRANSMIT "^M"
  40. GOTO SKIP
  41.  
  42. :KILL
  43. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  44. KILL @REPDIR@@BBSID@.REP
  45. TRANSMIT "^M"
  46.  
  47. :SKIP
  48. WAITFOR "Command? "
  49. TRANSMIT "G"
  50.  
  51. :EXIT
  52. PAUSE 5
  53. HANGUP
  54.  
  55. CAPTURE OFF
  56.